home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Freeware / PerfectPaint / rexx / Alchemy / Script / Carve.rx next >
Encoding:
Text File  |  2002-03-13  |  571 b   |  45 lines
  1. /* Alchemy script
  2. 100
  3. 1
  4. 4
  5. */
  6.  
  7.     options results
  8.   parse ARG Port x1 y1 x2 y2  type b
  9.     ADDRESS value Port
  10.  
  11.     pp_AvoidRefresh    
  12.     pp_Progresstext 'Carve'
  13.  
  14.     pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1
  15.  
  16.     pp_ComposeReqOff
  17.     pp_Compose 0 100 0
  18.  
  19.     pp_EffectOn
  20.  
  21.     pp_PointCellular (type+1)*5+1 3
  22.     pp_Progress 1 4
  23.     pp_BoxF x1 y1 x2 y2
  24.  
  25.     if type=0 then DO
  26.         pp_Compose 1 100 0
  27.         pp_Maximum 1
  28.         pp_Progress 2 4
  29.         pp_BoxF x1 y1 x2 y2    
  30.     end
  31.  
  32.     pp_Compose 0 100 0 
  33.  
  34.     pp_Sin 1 2 100 2 100
  35.     pp_Progress 3 4
  36.     pp_BoxF x1 y1 x2 y2
  37.  
  38.     pp_EffectOff
  39.     pp_ComposeReqOn
  40.  
  41.     pp_PermitRefresh
  42.     pp_ProgressClr
  43.  
  44.     Exit
  45.